home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / albgene4.dir / 01096_Script_1096 < prev   
Text File  |  1983-01-30  |  580b  |  22 lines
  1. --SOLO PER I FILE CHE SONO SOTTO  "INVENZIO"
  2. on cambiainv  qualeframe,qualemovie
  3.   global funzioni
  4.   cursor 4
  5.   sound close 1
  6.   sound close 2
  7.   set funzioni = ""
  8.   toglimenubar
  9.   if the colorDepth <= 8 then   
  10.     repeat with spt=1 to 48
  11.       set the visible of sprite spt to false
  12.     end repeat
  13.     updatestage
  14.   end if
  15.   if the machinetype < 255 then
  16.     go qualeframe of movie  "invenzioni:invenzio:"&qualemovie&".dir"
  17.   else
  18.     set cddrive to char 1 of the moviepath
  19.     go qualeframe of movie (cddrive& ":\invenzio\"&qualemovie&".dir")
  20.   end if
  21.   
  22. end